home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / original.bas < prev    next >
BASIC Source File  |  1991-10-18  |  9KB  |  190 lines
  1. 1 KEY (1) ON :ON KEY (1) GOSUB 65010:PLAY OFF
  2. 1000 ' 初期設定
  3. 1010 '
  4. 1020 LOAD@"Q:\FJ\FM\FM_1.FMB"
  5. 1030 LOAD@"PDRUMS.PMB"
  6. 1040 PLAY OFF:BGM 1:FOR I=0 TO 13: PART I,I:NEXT:GOSUB *コメント
  7. 1050 T$="T160":PLAY T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$
  8. 1060 '
  9. 1070 ' ＭＭＬ　ＳＥＴ
  10. 1080 '
  11. 1090 A0$="O4@4L12V14%LDRRDRDD2<A6RARAA2"
  12. 1100 B0$="O4@4L12V12%RRDRRDRDD2<A6RARAA4."
  13. 1110 C0$="V13@25%RL12O3D>DD<D>DD<D>DD<D>DD< D>DD<D>DD<D>DD<D>DD<"
  14. 1120 D0$="V13@113%LL12O3D>DD<D>DD<D>DD<D>DD< D>DD<D>DD<D>DD<D>DD<"
  15. 1130 E0$="V11L12O3@101%LDGA>DGA<DGA>DGA< DGA>DGA<DGA>DGA<"
  16. 1140 F0$="V8L12O3@101%RRDGA>DGA<DGA>DGA< DGA>DGA<DGA>DG<"
  17. 1150 G0$="%RO4V12L6@2C@1C@2C24C24C24C24@1C@2C@1C12C12 @2C@1C@2C24C24C24C24@1C@2C@1C12D12"
  18. 1160 H0$="%LO4V12L6@2D@1D@2D24D24D24D24@1D@2D@1D12D12 @2D@1D@2D24D24D24D24@1D@2D@1D12E12"
  19. 1170 A1$="B-RRB-RB-B-2>C6RCRCC2"
  20. 1180 B1$="RB-RRB-RB-B-2>C6RCRCC4."
  21. 1190 I0$="V5%RL12@4C@3CCCCC @4C@3CCCCC @4C@3CCCCC @4C@3CCCCC"
  22. 1200 J0$="V5%LL12@4C@3CCCCC @4C@3CCCCC @4C@3CCCCC @4C@3CCCCC"
  23. 1210 C1$="<B->B-B-<B->B-B-<B->B-B-<B->B-B- C>CC<C>CC<C>CC<C>CC<"
  24. 1220 E1$="<B->E-FB->E-F<<B->E-FB->E-F< CFG>CFG<CFG>CFG<"
  25. 1230 F1$="R<B->E-FB->E-F<<B->E-FB->E-F< CFG>CFG<CFG>CF<"
  26. 1240 A2$="B-RRB-RB-B-2>C6RCRCC4EDC"
  27. 1250 B2$="R-RRB-RB-B-2>C6RCRCC4ED"
  28. 1260 K0$="V5@10%RO4L12DRRDRDD2<A6RARAA2"
  29. 1270 L0$="V5@10%LO4L12DRRDRDD2<A6RARAA2"
  30. 1280 K1$="B-RRB-RB-B-2>C6RCRCC2"
  31. 1290 K2$="B-RRB-RB-B-2>C6RCRCC4EDC"
  32. 1300 A3$="<B-GB->D2RRR1"
  33. 1310 B3$="R<B-GB->D2RRR2"
  34. 1320 K3$="<B-GB->D2RRR1"
  35. 1330 G3$="%RO4V12L6@2C@1C@2C24C24C24C24@1C@2C@1C12C12 @2C@1C@2C24C24C24C24@1C@2C@1C24C24C24C24"
  36. 1340 H3$="%LO4V12L6@2D@1D@2D24D24D24D24@1D@2D@1D12D12 @2D@1D@2D24D24D24D24@1D@2D@1D24D24D24D24"
  37. 1350 A4$="F4FRFF4C<AF>G4GRGG4D<B-G>"
  38. 1360 B4$="RF4FRFF4C<AF>G4GRGG4D<B->"
  39. 1370 I3$="V5%RL12@4C@3CCCCC @4C@3CCCCC @5C6@3CCCC @5C6@3CCCC"
  40. 1380 J3$="V5%LL12@4C@3CCCCC @4C@3CCCCC @5C6@3CCCC @5C6@3CCCC"
  41. 1390 C4$="F>FF<F>FF<F>FF<F>FF< G>GG<G>GG<G>GG<G>GG<"
  42. 1400 E4$="O3FB->CFB->C<<FB->CFB->C <<G>CDG>CD<<G>CDG>CD<<"
  43. 1410 F4$="O3RFB->CFB->C<<FB->CFB->C <<G>CDG>CD<<G>CDG>C<<"
  44. 1420 K4$="F4FRFF4C<AF>G4GRGG4D<B-G>"
  45. 1430 A5$="F4FRFF4C<A>CD4DRDD4D<B->D"
  46. 1440 B5$="RF4FRFF4C<A>CD4DRDD4D<B->"
  47. 1450 C5$="F>FF<F>FF<F>FF<F>FF< D>DD<D>DD<D>DD<D>DD<"
  48. 1460 E5$="O3FB->CFB->C<<FB->CFB->C<< DGA>DGA<DGA>DGA<"
  49. 1470 F5$="O3RFB->CFB->C<<FB->CFB->C<< DGA>DGA<DGA>DG<"
  50. 1480 K5$="F4FRFF4C<A>CD4DRDD4D<B->D"
  51. 1490 A6$="<B-4B-RB-B-4B-GB->C4CRCC4C<A>C"
  52. 1500 B6$="R<B-4B-RB-B-4B-GB->C4CRCC4C<A>"
  53. 1510 A7$="DRDDRDD2R1"
  54. 1520 B7$="RDRDDRDD2R2"
  55. 1530 C6$="<B->B-B-<B->B-B-<B->B-B-<B->B-B- C>CC<C>CC<C>CC<C>CC<"
  56. 1540 C7$="D>DD<D>DD<D>DD<D>DD< C>CC<C>CC<C>CC<C>CC<"
  57. 1550 E6$="O4<B->E-FB->E-F<<B->E-FB->E-F< CFG>CFG<CFG>CFG<"
  58. 1560 F6$="O4R<B->E-FB->E-F<<B->E-FB->E-F< CFG>CFG<CFG>CF<"
  59. 1570 E7$="DGA>DGA<DGA>DGA< CFG>CFG<CFG>CFG<"
  60. 1580 F7$="RDGA>DGA<DGA>DGA< CFG>CFG<CFG>CF<"
  61. 1590 K6$="<B-4B-RB-B-4B-GB->C4CRCC4C<A>C"
  62. 1600 K7$="DRDDRDD2R1"
  63. 1610 '
  64. 1620 ' Ｐｌｅａｓｅ　ｗａｉｔ．
  65. 1630 '
  66. 1640 FOR I=1 TO 10000:NEXT
  67. 1650 '
  68. 1660 ' ＰＬＡＹ
  69. 1670 '
  70. 1680 PLAY A0$,B0$,C0$,D0$,E0$,F0$,G0$,H0$,I0$,J0$,K0$,L0$
  71. 1690 PLAY A1$,B1$,C1$,C1$,E1$,F1$,G0$,H0$,I0$,J0$,K1$,K1$
  72. 1700 PLAY A0$,B0$,C0$,D0$,E0$,F0$,G0$,H0$,I0$,J0$,K0$,L0$
  73. 1710 PLAY A2$,B2$,C1$,C1$,E1$,F1$,G0$,H0$,I0$,J0$,K2$,K2$
  74. 1720 PLAY A3$,B3$,C1$,C1$,E1$,F1$,G3$,H3$,I3$,J3$,K3$,K3$
  75. 1730 PLAY A4$,B4$,C4$,C4$,E4$,F4$,G0$,H0$,I0$,J0$,K4$,K4$
  76. 1740 PLAY A4$,B4$,C4$,C4$,E4$,F4$,G0$,H0$,I0$,J0$,K4$,K4$
  77. 1750 PLAY A5$,B5$,C5$,C5$,E5$,F5$,G0$,H0$,I0$,J0$,K5$,K5$
  78. 1760 PLAY A6$,B6$,C6$,C6$,E6$,F6$,G0$,H0$,I0$,J0$,K6$,K6$
  79. 1770 PLAY A7$,B7$,C7$,C7$,E7$,F7$,G3$,H3$,I3$,J3$,K7$,K7$
  80. 1780 GOTO 1680
  81. 1790 *コメント
  82. 1800 DATA オリジナル曲です。曲名は・・・考えていません。まぁＷ．ＭｏＭｏオリジナル１とでもしときましょうか。
  83. 1810 DATA 実はこの曲ＡＶのラビライザーというゲーム（いわゆる同人ソフトです）のために作った物をＴＯＷＮＳに作り直したものです。ＡＶを持っている人はこのタイトルの同人ソフトをみかけたら一度はＰＬＡＹしてください（思わず宣伝してしまった）。
  84. 1820 DATA そしたら僕が作曲した曲もあるんだなと思ってください（というのはまだ他に凄い人も作曲しているのです）。
  85. 1830 DATA 一寸（これ“ちょっと“と読むのか・・・。知らんかった・・・。）無茶苦茶書きましたがとにかく聴いてください。," "
  86. 1840 DATA ＰＬＥＡＳＥ　ＰＵＳＨ　ＲＥＴＵＲＮ　ＫＥＹ　！！
  87. 1850 DATA " ",Ｐ．Ｓ．
  88. 1860 DATA " ",住所なんかはこれのリストを見てください。,""
  89. 1870 GOSUB *PCM_INST_CHANGE : RESTORE 1800:SCREEN@0:PALETTE 0,[0,0,0]:COLOR 7,0,0,0:CLS
  90. 1900 GOSUB *SCREEN
  91. 1910 '
  92. 1920 I$=INKEY$:IF I$=CHR$(13) THEN 1930 ELSE 1920
  93. 1930 '
  94. 1940 GOSUB *F_OUT
  95. 1950 SCREEN@1:COLOR 7,0:CLS:PASTEL 255
  96. 1960 FOR I=0 TO 119:LINE(I,I)-(319-I,239-I),PSET,[200,100,250-I],B:NEXT
  97. 1970 SYMBOL(10,100),"Ｗ．ＭｏＭｏオリジナル１",1,2,[250,250,50],,PASTEL,15,8
  98. 1980 RETURN
  99. 1990 '
  100. 2000 ' 住所ですぅ
  101. 2010 ' 
  102. 2020 ' 郵便番号 ８５４
  103. 2030 ' 住所     長崎県　諫早市　白岩町  ３１－１４
  104. 2040 ' 氏名     森田　明秀
  105. 2050 '
  106. 2060 ' 乾燥じゃなくて感想を待っています。
  107. 17000 *SCREEN
  108. 17010 SCREEN@ 0 : PALETTE@
  109. 17020 FOR I=0 TO 15 : PALETTE I,[0,0,0] : NEXT
  110. 17030 COLOR ,%5 : CLS
  111. 17040 X=630 : Y=30 : MX=2 : MY=3: R=3 : C1=1 : C2=5 : C3=15 : F=16
  112. 17050 ST$="ＰＩＣＫ　ＵＰ　ＴＯＷＮＳ" : GOSUB *STR_PUT
  113. 17060 X=575 : Y=30 : MX=2 : MY=3 : R=3 : C1=1 : C2=5 : C3=15 : F=16
  114. 17070 ST$="ＭＵＳＩＣ　ＰＲＯＧＲＡＭ" : GOSUB *STR_PUT
  115. 17080 GOSUB *F_IN : FOR I=0 TO 2000 : NEXT
  116. 17090 X1=10 : X2=510 : Y1=10 : Y2=460 : C1=1 : C2=6 : C3=15
  117. 17100 GOSUB *WAKU
  118. 17110 X1=20 : X2=500 : Y1=20 : Y2=90 : C1=15 : C2=7 : C3=5
  119. 17120 GOSUB *WAKU
  120. 17130 X1=20 : X2=500 : Y1=420 : Y2=450 : C1=15 : C2=7 : C3=5
  121. 17140 GOSUB *WAKU
  122. 17150 X1=20 : X2=500 : Y1=100 : Y2=410 : C1=15 : C2=7 : C3=5
  123. 17160 GOSUB *WAKU
  124. 17170 SYMBOL (30,430),"ＰＦ１キーを押すと、演奏を中断して音楽ＭＥＮＵに戻ります。",1,1,0,,,1
  125. 17180 SYMBOL (30,30),"　ＴＩＴＬＥ　",1,1,0,0,PSET,17
  126. 17190 SYMBOL (80,53),"Ｗ．ＭｏＭｏオリジナル１",1,2,0,0,PSET,1
  127. 17200 SYMBOL (30,110),"　ＤＡＴＡ　",1,1,0,0,PSET,17
  128. 17210 SYMBOL (80,140),"Programed by Ｗ．ＭｏＭｏ",1,1,0,0,PSET,1,1
  129. 17220 SYMBOL (80,160)," Composed by Ｗ．ＭｏＭｏ",1,1,0,0,PSET,1,1
  130. 17230 SYMBOL (30,200),"　ＭＥＳＳＡＧＥ　",1,1,0,0,PSET,17
  131. 17240 'ST$()="･･････････････････････････････････････････････････････"
  132. 17250 ST$(0)="　オリジナル曲です。曲名は・・・考えていません。まぁＷ．"
  133. 17260 ST$(1)="ＭｏＭｏオリジナル１とでもしときましょうか。実はこの曲、"
  134. 17270 ST$(2)="ＡＶのラビライザーというゲーム（いわゆる同人ソフトです）"
  135. 17280 ST$(3)="のために作った物をＴＯＷＮＳに作り直したものです。ＡＶ"
  136. 17290 ST$(4)="を持っている人はこのタイトルの同人ソフトをみかけたら一"
  137. 17300 ST$(5)="度はＰＬＡＹしてください（思わず宣伝してしまった）。そ"
  138. 17310 ST$(6)="したら僕が作曲した曲もあるんだなと思ってください。"
  139. 17320 ST$(7)="ＰＬＥＡＳＥ　ＰＵＳＨ　ＲＥＴＵＲＮ　ＫＥＹ　！！"
  140. 17330 GOSUB *MESSAGE
  141. 17340 RETURN
  142. 17350 *STR_PUT
  143. 17360 SYMBOL (X,Y),ST$,MX,MY,%C1,R,PSET,F
  144. 17370 SYMBOL (X+1,Y),ST$,MX,MY,%C1,R,PSET,F
  145. 17380 SYMBOL (X+2,Y),ST$,MX,MY,%C1,R,PSET,F
  146. 17390 SYMBOL (X+2,Y-1),ST$,MX,MY,%C1,R,PSET,F
  147. 17400 SYMBOL (X+2,Y-2),ST$,MX,MY,%C1,R,PSET,F
  148. 17410 SYMBOL (X,Y-2),ST$,MX,MY,%C3,R,PSET,F
  149. 17420 SYMBOL (X+1,Y-2),ST$,MX,MY,%C3,R,PSET,F
  150. 17430 SYMBOL (X,Y-1),ST$,MX,MY,%C3,R,PSET,F
  151. 17440 SYMBOL (X+1,Y-1),ST$,MX,MY,%C2,R,PSET,F
  152. 17450 RETURN
  153. 17460 *WAKU
  154. 17470 LINE (X1+2,Y1+2)-(X2-2,Y2-2),PSET,%C2,BF
  155. 17480 CONNECT (X1,Y2)-(X1,Y1)-(X2,Y1),%C3
  156. 17490 CONNECT (X1+1,Y2-1)-(X1+1,Y1+1)-(X2-1,Y1+1),%C3
  157. 17500 CONNECT (X1+1,Y2)-(X2,Y2)-(X2,Y1+1),%C1
  158. 17510 CONNECT (X1+2,Y2-1)-(X2-1,Y2-1)-(X2-1,Y1+2),%C1
  159. 17520 RETURN
  160. 17530 *MESSAGE
  161. 17540 FOR I=0 TO 7
  162. 17550   SYMBOL (50,230+20*I),ST$(I),1,1,0,0,PSET,1
  163. 17560 NEXT I
  164. 17570 RETURN
  165. 17580 *F_OUT
  166. 17590 FOR I=16 TO 1 STEP -1 : GOSUB *PALETTE : NEXT I :COLOR ,%0: CLS: RETURN
  167. 17600 *F_IN
  168. 17610 FOR I=1 TO 16 : GOSUB *PALETTE : NEXT I : RETURN
  169. 17620 *PALETTE
  170. 17630 PALETTE 1,[0*I,0*I,1*I]
  171. 17640 PALETTE 2,[1*I,0*I,2*I]
  172. 17650 PALETTE 3,[2*I,1*I,3*I]
  173. 17660 PALETTE 4,[4*I,2*I,6*I]
  174. 17670 PALETTE 5,[8*I,6*I,9*I]
  175. 17680 PALETTE 6,[12*I,10*I,13*I]
  176. 17690 PALETTE 7,[14*I,13*I,15*I]
  177. 17700 PALETTE 15,[15*I,15*I,15*I]
  178. 17710 RETURN
  179. 20000 *PCM_INST_CHANGE
  180. 20010 DIM PCM_SON(63) : RESTORE *PCM_INST_DATA
  181. 20020 FOR I=1 TO 10
  182. 20030   READ PCM_INST1,PCM_INST2
  183. 20040   VOICE COPY PCM_INST1,PCM_SON,1 : VOICE PCM_INST2,PCM_SON,1
  184. 20050 NEXT I
  185. 20060 RETURN
  186. 20070 *PCM_INST_DATA
  187. 20080 DATA 2,1,3,2,4,3,5,4,6,5,7,6,8,7,9,8,10,9,14,10
  188. 65000 BGM 0:PLAY "R64":BGM 1
  189. 65010 KEY (1) OFF:PLAY OFF:FOR I=0 TO 13:PART I,I:NEXT:RUN"MENU.BAS"
  190.